currentpoint currentpoint translate .25 .25 scale neg exch neg exch translate
initclip